<%
MyServer=Request.ServerVariables("SERVER_NAME")
MyPath=Request.ServerVariables("SCRIPT_NAME")
MySelf="HTTP://" & MyServer & MyPath
%>
Who Is On
<%
Application.Lock
localStats=Application("Stats")
Application.UnLock
%>
Who Is On ?
|
User ID |
Current Page |
IP Address |
Start Time |
<%
For i=0 To Ubound(localStats,2)
If localStats(0,i) <> "" Then
%>
| <%= i %> |
<%= localStats(0,i) %> |
<%= localStats(1,i) %> |
<%= localStats(2,i) %> |
<%= localStats(3,i) %> |
<%
End If
Next
%>